Ì i 2
mri.pat.appointments (appointments)
[appt.mpi,appt.date.time,appt.source,appt.id]
?EAWZ[ea,eawDT,eaiaD,eawz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
appt.mpi 25 URN L MRI.PAT ea
appt.date.time 13 DATE L eawDT
appt.source 15 FREE L eaiaD
appt.id 20 FREE L eawz
appt.account 30 URN L ADM.PAT ?EAWZ[ea,eawDT,eaiaD,eawz]|4
appt.agency 30 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|3
appt.comment 60 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|7
appt.description 45 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|1
appt.duration 4 PINT R ?EAWZ[ea,eawDT,eaiaD,eawz]|0
appt.facility 10 FREE L MIS.FACILITY ?EAWZ[ea,eawDT,eaiaD,eawz]|2
appt.location 10 FREE L MIS.LOCN.DICT ?EAWZ[ea,eawDT,eaiaD,eawz]|3
appt.old.date.time 13 DATE L ?EAWZ[ea,eawDT,eaiaD,eawz]|9
appt.status 9 CHOICE L ?EAWZ[ea,eawDT,eaiaD,eawz]|5
appt.type 10 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|8
appt.unsched.thru.time 4 HHMM L ?EAWZ[ea,eawDT,eaiaD,eawz]|6
appt.update 10 PINT R ?EAWZ[ea,eawDT,eaiaD,eawz]UPD
appt.visit.id 30 FREE L ?EAWZ[ea,eawDT,eaiaD,eawz]|4
Ì i 2
mri.pat.new.num.assign.log (assign.log)
[ass.prefix,ass.date,ass.unit.number,ass.urn]
:EAA[epx,eaD,eaU,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ass.prefix 2 FREE L epx
ass.date 8 DATE L eaD
ass.unit.number 10 FREE L eaU
ass.urn 8 URN L ea
ass.time 4 HHMM L :EAA[epx,eaD,eaU,ea]|1
ass.user 10 FREE L MIS.USER :EAA[epx,eaD,eaU,ea]|0
Ì i 2
mri.pat.delete.restore.index (delete.restore.log)
[del.prefix,del.date,del.number,del.urn] = free
:EADR[epx,eaD,eaX,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
del.prefix 2 FREE L epx
del.date 8 DATE L eaD
del.number 2 PINT R eaX
del.urn 8 URN L ea
del.action 1 CHOICE L :EADR[epx,eaD,eaX,ea]|1
del.time 4 HHMM L :EADR[epx,eaD,eaX,ea]|2
del.user 10 FREE L :EADR[epx,eaD,eaX,ea]|0
Ì i 2
mri.pat.duplicates (duplicates)
:EAD
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.birthdate.range 4 PINT R :EAD|5
dup.compile.mode 4 CHOICE L :EAD|11
dup.date 8 DATE L :EAD|0
dup.end.date 8 DATE L :EAD|15
dup.end.time 4 DATE L :EAD|16
dup.first.name.sel 18 CHOICE L :EAD|8
dup.last.name.sel 18 CHOICE L :EAD|7
dup.nrecs 5 PINT R :EAD|17
dup.possible.count 7 PINT R :EAD|10
dup.process.count 7 PINT R :EAD|4
dup.select.count 7 PINT R :EAD|12
dup.select.end.date 8 DATE L :EAD|13
dup.select.end.time 4 HHMM L :EAD|14
dup.ssn.sel 18 CHOICE L :EAD|9
dup.start.at.date 8 DATE L :EAD|6
dup.status 9 FREE L :EAD|3
dup.status.display 18 FREE L VAL=IF{@dup.status="SELECTING" @dup.status_" "_@dup.s
VAL=elect.count;@dup.status}
dup.time 4 HHMM L :EAD|1
dup.user 10 FREE L :EAD|2
Ì i 2
mri.pat.duplicate.index (duplicate.index)
[dup.last.name,dup.first.name,dup.soc.sec.number,dup.birthdate,dup.urn]
:EAD["D",x1,x2,eaSSN,eaBD,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
dup.last.name 25 FREE L x1
dup.first.name 25 FREE L x2
dup.soc.sec.number 12 FREE L eaSSN
dup.birthdate 8 BDATE L eaBD
dup.urn 25 URN L MRI.PAT ea
dup.before.sndx.name 25 FREE L :EAD["D",x1,x2,eaSSN,eaBD,ea]
Ì i 2
mri.pat.edit.index (edit.log)
[edit.prefix,edit.date,edit.unit.number,edit.urn,edit.number]
:EAE[epx,eaD,eaU,ea,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edit.prefix 2 FREE L epx
edit.date 8 DATE L eaD
edit.unit.number 10 FREE L eaU
edit.urn 25 URN L MRI.PAT ea
edit.number 2 PINT R eaX
edit.item 15 CHOICE L :EAE[epx,eaD,eaU,ea,eaX]|0
edit.new.val 30 FREE L :EAE[epx,eaD,eaU,ea,eaX]|3
edit.old.val 30 FREE L :EAE[epx,eaD,eaU,ea,eaX]|2
edit.time 4 HHMM L :EAE[epx,eaD,eaU,ea,eaX]|1
edit.user 10 FREE L MIS.USER :EAE[epx,eaD,eaU,ea,eaX]|4
Ì i 2
mri.pat.edit.pat.log (edit.pat.log)
[ep.prefix,ep.urn,ep.unit.number,ep.date,ep.number]
:EAPE[epx,ea,eaU,eaD,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
ep.prefix 2 FREE L epx
ep.urn 25 URN L MRI.PAT ea
ep.unit.number 10 FREE L eaU
ep.date 8 DATE L eaD
ep.number 2 PINT R eaX
ep.item 15 :EAPE[epx,ea,eaU,eaD,eaX]|0
ep.new.val 30 FREE L :EAPE[epx,ea,eaU,eaD,eaX]|3
ep.old.val 30 FREE L :EAPE[epx,ea,eaU,eaD,eaX]|2
ep.time 4 HHMM L :EAPE[epx,ea,eaU,eaD,eaX]|1
ep.user 10 FREE L MIS.USER :EAPE[epx,ea,eaU,eaD,eaX]|4
Ì i 2
mri.pat.fast.input.index (fast.input.log)
[fast.prefix,fast.user,fast.date,fast.unit.number,fast.urn]
:EAF[epx,eaUS,eaD,eaU,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fast.prefix 2 FREE L epx
fast.user 10 FREE L eaUS
fast.date 8 DATE L eaD
fast.unit.number 10 FREE L eaU
fast.urn 8 URN L ea
fast.time 4 HHMM L :EAF[epx,eaUS,eaD,eaU,ea]|0
Ì i 2
hub.adm.file (hub.adm.file)
[adm.urn]
?EAHHAA[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
adm.urn 30 URN L ADM.PAT aa
adm.hub.id 20 FREE L ?EAHHAA[aa]|0
hub.id 20 FREE L
Ì i 2
hub.mri.file (hub.mri.file)
[mpi.urn]
?EAHHEA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mpi.urn 25 URN L MRI.PAT ea
mri.hub.id 20 FREE L ?EAHHEA[ea]|0
Ì i 2
mri.patient.file (main)
[medical.record]
?EA[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
medical.record 25 URN L ea
..not.in.use.17 0 FREE L ?EA[ea]|17
..not.in.use.6 0 FREE L ?EA[ea]|6
..not.in.use.7 0 FREE L ?EA[ea]|7
..not.in.use.8 0 FREE L ?EA[ea]|8
active 1 YN L ?EA[ea]|2
age 7 AGE R ?EA[ea]|5
bad.debt 1 YN L ?EA[ea]|14
birthdate 8 BDATE L ?EA[ea]|3
cnv.facility 10 FREE L MIS.FACILITY ?EA[ea]CNV|2
cnv.pci.to.emr 1 YN L ?EA[ea]CNV|3
cnv.unit.number 10 FREE L ?EA[ea]CNV|1
cnv.urn 25 FREE L ?EA[ea]CNV|0
comment 60 FREE L ?EA[ea]CO|0
computed.birthdate 8 BDATE L ?EA[ea]|11
confidential 1 YN L ?EA[ea]|18
confidential.flag 20 FREE L VAL=IF{"Y"=@MRI.PAT.confidential "*** CONFIDENTIAL ***
VAL="}
current.age 7 FREE L VAL=%MRI.PAT.check.discharge.disposition(@MRI.PAT.disc
VAL=harge.disposition,@MRI.PAT.computed.birthdate,@MRI
VAL=.PAT.age,MRI.PAT.urn,@MRI.PAT.last.discharge.date)
VAL=^A
demo.recall.date 8 DATE L ?EA[ea]|12
discharge.disposition 10 FREE L MIS.DIS.DICT ?EA[ea]|9
ee.setup 0 FREE L VAL=IF{@init.visits.ee.format,@init.unit.nums.ee.forma
VAL=t}
emr.record.sealed 1 YN L ?EA[ea]|23
epi.num 15 FREE L ?EA[ea]|20
exp.date 8 DATE L ?EA[ea]|22
expire.date 8 DATE L VAL=%MRI.PAT.get.expire.date(urn)^EXDATE
expire.time 4 HHMM L VAL=%MRI.PAT.get.expire.time(urn)^EXPTIME
facility 10 FREE L MIS.FACILITY
first.name 25 FREE L
first.name.indexed 25 FREE L
healthcare.number 14 FREE L
id 25 URN L MRI.PAT VAL=@MRI.PAT.main[MRI.PAT.urn]UN[@.mri.pfx]|0
include.no.unit.number 1 YN L VAL=IF{c.yn="Y";@px.unit.number "Y"}
init.visits.ee.format 0 FREE L VAL=%MRI.PAT.ee.build.visits.ee.format("")
last.activity.date 8 DATE L ?EA[ea]|10
last.discharge.date 8 DATE L VAL=%MRI.PAT.get.discharge.date(urn)^LDISDATE
last.name 25 FREE L
last.name.indexed 25 FREE L
maiden.other.name 30 NAME L ?EA[ea]|16
merged.to 25 URN L MRI.PAT ?EA[ea]|13
mf.unit.number 12 FREE L ?EA[ea]|0
missing.data 0 FREE L VAL=(@name="DOE,JOHN")!(@name="DOE,JANE")!('@name)!('@
VAL=sex)!('@birthdate)!('@mothers.first.name)
mothers.first.name 20 FREE L ?EA[ea]|15
name 30 NAME L ?EA[ea]|1
new.patient 30 FREE L
new.patient.for.prefix 30 FREE L
old.epi.num 15 FREE L ?EA[ea]|21
old.patient 30 FREE L
old.patient.for.merge 63 FREE L
old.patient.for.prefix 30 FREE L
old.patient.for.view 30 FREE L
old.unit.number 10 FREE L ?EA[ea]|19
pat.home.phone 18 FREE L
policy.number 30 FREE L
sex 1 CHOICE L ?EA[ea]|4
soc.sec.number 12 FREE L
soundexed.name 30 NAME L
try.number 1 PINT R
unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[MRI.PAT.urn,@.mri.pfx]
unit.number.tdo 10 FREE L VAL=%MRI.PAT.unit.number.tdo(@unit.number)
universal.number 12 FREE L VAL=IF{@MIS.PARAM.country="CANADA" @MRI.DRC.health.car
VAL=e.number;@MRI.DRC.soc.sec.number}
urn 25 URN L MRI.PAT
zcus.blood.type 10 FREE L ?EA[ea]ZCUSMUK|4
zcus.creation.facility 10 FREE L MIS.FACILITY ?EA[ea]ZCUSMUK|2
zcus.death.date 8 DATE L ?EA[ea]ZCUSMUK|1
zcus.notes.created 10 FREE L ?EA[ea]ZCUSMUK|3
zcus.title 10 FREE L ?EA[ea]ZCUSMUK|0
zcus.uk.advised.death.dat 1 YN L ?EA[ea]ZCUSMUK|5
zcus.uk.cmds 2 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|1
zcus.uk.date 8 DATE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|2
zcus.uk.new.nhs.num 10 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|3
zcus.uk.post 3 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|4
zcus.uk.post.date 8 DATE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|6
zcus.uk.post.date.upd 8 DATE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|7
zcus.uk.post.upd 8 DATE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|5
zcus.uk.ts 2 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]|0
Ì € i 2
mri.pat.by.prefix.data (by.prefix)
[medical.record, prefix.by]
?EA[ea]P[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix.by 2 FREE L epx
folder.create.date 8 DATE L VAL=@MRI.PAT.folder.create.date.ee[@.mri.pfx]
folder.create.date.ee 8 DATE L ?EA[ea]P[epx]|0
more.on.microfilm 1 YN L VAL=@MRI.PAT.more.on.microfilm.ee[@.mri.pfx]
more.on.microfilm.ee 1 YN L ?EA[ea]P[epx]|1
portion.incomplete 1 YN L VAL=%MRI.ICR.portion.incomplete(@.mri.pfx,urn)
portion.signed.out 1 YN L VAL=IF{+@MRI.LOC.portions[@.mri.pfx,urn,""] "Y";""}
record.locator 20 FREE L VAL=@MRI.PAT.record.locator.ee[@.mri.pfx]
record.locator.ee 20 FREE L ?EA[ea]P[epx]|2
Ì € i 2
mri.pat.emr.sealed.audit (emr.sealed.audit)
[medical.record, emr.sealed.audit.q]
?EA[ea]SEA[eaSEA]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.audit.q 3 INT R eaSEA
emr.sealed.audit.client 30 FREE L ?EA[ea]SEA[eaSEA]|5
emr.sealed.audit.date 8 DATE L ?EA[ea]SEA[eaSEA]|1
emr.sealed.audit.status 8 CHOICE L ?EA[ea]SEA[eaSEA]|0
emr.sealed.audit.sys.time 10 PINT R ?EA[ea]SEA[eaSEA]|3
emr.sealed.audit.time 4 HHMM L ?EA[ea]SEA[eaSEA]|2
emr.sealed.audit.user 10 FREE L MIS.USER ?EA[ea]SEA[eaSEA]|4
Ì € i 2
mri.pat.emr.sealed.audit.users (emr.sealed.audit.users)
[medical.record,emr.sealed.audit.q, emr.sealed.audit.acc.user]
?EA[ea]SEA[eaSEA]U[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.audit.acc.user 10 FREE L MIS.USER gu
Ì € i 2
mri.pat.emr.sealed.audit.visit (emr.sealed.audit.visits)
[medical.record,emr.sealed.audit.q, emr.sealed.visit]
?EA[ea]SEA[eaSEA]A[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
emr.sealed.visit 10 FREE L aa
Ì € i 2
mri.pat.merged.from (merged.from)
[medical.record, merged.number]
?EA[ea]MF[mrg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merged.number 2 PINT R mrg
merged.birthdate 8 BDATE L VAL=@MRI.PAT.birthdate[@merged.urn]
merged.epi.num 15 FREE L VAL=@MRI.PAT.epi.num[@merged.urn]
merged.exp.date 8 DATE L VAL=@MRI.PAT.exp.date[@merged.urn]
merged.mothers.first.name 20 FREE L VAL=@MRI.PAT.mothers.first.name[@merged.urn]
merged.name 30 FREE L VAL=@MRI.PAT.name[@merged.urn]
merged.sex 1 FREE L VAL=@MRI.PAT.sex[@merged.urn]
merged.unit.number 10 FREE L VAL=@MRI.PAT.px.unit.number[@merged.urn,merge.prefix]
merged.universal.num 12 FREE L VAL=IF{@MIS.PARAM.country="CANADA" @MRI.DRC.health.car
VAL=e.number[@merged.urn];@MRI.DRC.soc.sec.number[@mer
VAL=ged.urn]}
merged.urn 10 URN L ?EA[ea]MF[mrg]|0
Ì € i 2
mri.pat.other.names (other.names)
[medical.record, other.name]
?EA[ea]ON[eaON]
Field Name Len Dat Typ J DPM Offset/Local/VAL
other.name 30 NAME L eaON
Ì € i 2
mri.pat.patient.facility (patient.facility)
[medical.record, pt.facility]
?EA[ea]FAC[fac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pt.facility 10 FREE L fac
Ì € i 2
mri.pat.unit.numbers (unit.numbers)
[medical.record, prefix]
?EA[ea]UN[epx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
prefix 2 FREE L epx
px.label.for.non.multifac 23 FREE L
px.unit.number 10 FREE L ?EA[ea]UN[epx]|0
px.user 10 FREE L MIS.USER ?EA[ea]UN[epx]|1
zcus.box 5 FREE L ?EA[ea]UN[epx]ZCUS|0
zcus.mic 1 YN L ?EA[ea]UN[epx]ZCUS|1
Ì € i 2
mri.pat.visits (visits)
[medical.record, visit.subscript]
?EA[ea]VS[eaV]
Field Name Len Dat Typ J DPM Offset/Local/VAL
visit.subscript 0 FREE L eaV
visit.acct.number 12 FREE L VAL=(visit.subscript#"2|")
visit.admit.urn 30 URN L ADM.PAT ?EA[ea]VS[eaV]|4
visit.confidential 1 YN L ?EA[ea]VS[eaV]|6
visit.date 8 DATE L VAL=(99999999-(visit.subscript#"0|"$8)<99999999)
visit.date.time 13 FREE L VAL=(99999999.9999-(visit.subscript#"0|")<99999999.
VAL=9999)
visit.dis.or.ser.date 8 DATE L VAL=IF{@visit.discharge.date;@visit.date}
visit.discharge.date 8 DATE L ?EA[ea]VS[eaV]|2
visit.discharge.dispo 10 FREE L MIS.DIS.DICT ?EA[ea]VS[eaV]|3
visit.doctor 10 FREE L MIS.DOC.DICT ?EA[ea]VS[eaV]|1
visit.facility 10 FREE L MIS.FACILITY VAL=IF{IF{@visit.acct.number$2?2A;@visit.acct.number$1
VAL=?1A;.}^MIS.PARAM.acct.num.prefix,IF{"CANADA"'=@MIS
VAL=.PARAM.country @MIS.PARAM.acct.num.px.facility;+@M
VAL=IS.CAN.ACNS.facilities[@MIS.CAN.ACNS.prefix.x[MIS.
VAL=PARAM.acct.num.prefix],""]}}
visit.guar.updatd.drc 1 YN L ?EA[ea]VS[eaV]|8
visit.guar.updatd.drc.out 1 YN L ?EA[ea]VS[eaV]|9
visit.ins.updated.drc 1 YN L ?EA[ea]VS[eaV]|5
visit.ins.updated.drc.out 1 YN L VAL=(IF{@visit.ins.updated.drc;"Y"})
visit.lab.suppress.pci 1 YN L ?EA[ea]VS[eaV]|13
visit.location 10 FREE L MIS.LOCN.DICT ?EA[ea]VS[eaV]|0
visit.oe.report.urn 30 URN L ?EA[ea]VS[eaV]|10
visit.pre 1 YN L ?EA[ea]VS[eaV]|11
visit.pre.res.date 8 DATE L ?EA[ea]VS[eaV]|12
visit.reason 50 FREE L ?EA[ea]VS[eaV]|7
visit.sealed.emr 1 YN L ?EA[ea]VS[eaV]|14
visit.time 4 HHMM L VAL=(19999-(visit.subscript#"0|"%8)%0<9999)
visit.type 7 CHOICE L VAL=(visit.subscript#"1|")
visit.type.with.pre 7 FREE L VAL=(IF{"Y"=@visit.pre "PRE ";""}_(visit.subscript#"1|
VAL="))
Ì € i 2
zcus.uk.nhs.no.audit (zcus.uk.nhs.no.audit)
[medical.record, zcus.nhs.event.date,zcus.nhs.seq.no]
?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.nhs.event.date 8 DATE L zndt
zcus.nhs.seq.no 5 PINT R znno
zcus.nhs.edit.comment 50 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|5
zcus.nhs.event.time 4 HHMM L ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|6
zcus.nhs.new.no 14 NHS.NUM L ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|2
zcus.nhs.new.status 2 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|4
zcus.nhs.old.no 14 NHS.NUM L ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|1
zcus.nhs.old.status 2 FREE L ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|3
zcus.nhs.user 10 FREE L MIS.USER ?EA[ea]ZCUSMUK["ZCUSNHS"]ZCUSAT[zndt,znno]|0
Ì € i 2
road.traffic.accident.data (zcus.uk.rta)
[medical.record, zcus.uk.rta.date,zcus.uk.rta.accident.no]
?EA[ea]ZCUSRTA[eartD,eartN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.rta.date 8 DATE L eartD
zcus.uk.rta.accident.no 2 PINT R eartN
zcus.uk.rta.acct.num.disp 12 FREE L VAL=@zcus.uk.rta.x
zcus.uk.rta.first.attend 8 DATE L ?EA[ea]ZCUSRTA[eartD,eartN]|0
zcus.uk.rta.further.admit 1 YN L ?EA[ea]ZCUSRTA[eartD,eartN]|3
zcus.uk.rta.oth.provider 50 FREE L ?EA[ea]ZCUSRTA[eartD,eartN]|2
zcus.uk.rta.tr.by.other 1 YN L ?EA[ea]ZCUSRTA[eartD,eartN]|1
Ì i 2
mri.pat.merge.index (merge.log)
[merge.prefix,merge.date,merge.urn,merge.number]
:EAMRG[epx,eaD,ea,eaX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.prefix 2 FREE L epx
merge.date 8 DATE L eaD
merge.urn 8 URN L ea
merge.number 3 PINT R eaX
merge.birthdate 8 BDATE L :EAMRG[epx,eaD,ea,eaX]|3
merge.created.by 14 FREE L :EAMRG[epx,eaD,ea,eaX]|8
merge.epi.number 15 FREE L :EAMRG[epx,eaD,ea,eaX]|9
merge.mfn 20 FREE L :EAMRG[epx,eaD,ea,eaX]|5
merge.name 30 FREE L :EAMRG[epx,eaD,ea,eaX]|2
merge.saved.birthdate 8 BDATE L VAL=/MS|3
merge.saved.name 30 FREE L VAL=/MS|1
merge.saved.sex 1 FREE L VAL=/MS|4
merge.sex 1 CHOICE L :EAMRG[epx,eaD,ea,eaX]|4
merge.time 4 HHMM L :EAMRG[epx,eaD,ea,eaX]|6
merge.txn 7 CHOICE L :EAMRG[epx,eaD,ea,eaX]|0
merge.unit.number 10 FREE L :EAMRG[epx,eaD,ea,eaX]|1
merge.user 10 FREE L :EAMRG[epx,eaD,ea,eaX]|7
Ì € i 2
mri.pat.merge.index.other.nums (merge.log.other.nums)
[merge.prefix,merge.date,merge.urn,merge.number, merge.other.num.prefix]
:EAMRG[epx,eaD,ea,eaX]O[mepx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
merge.other.num.prefix 2 FREE L mepx
merge.other.num.removed 10 FREE L :EAMRG[epx,eaD,ea,eaX]O[mepx]|0
merge.other.num.saved 10 FREE L VAL=@MRI.PAT.px.unit.number[merge.other.num.prefix]
Ì i 2
mri.pat.missing.data.index (missing.index)
[miss.prefix,miss.date,miss.urn]
:EAM[epx,eaD,ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
miss.prefix 2 FREE L epx
miss.date 8 DATE L eaD
miss.urn 8 URN L ea
miss.user 10 FREE L :EAM[epx,eaD,ea]|0
Ì i 2
med.rec.form.audit.trail (mr.form.audit.trail)
[mrf.aud.mri.urn,mrf.aud.account.number,mrf.aud.form.seq.no,mrf.aud.seq.no]
?EAFA[ea,eaN,eaF,eaED]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mrf.aud.mri.urn 25 URN L MRI.PAT ea
mrf.aud.account.number 20 FREE L eaN
mrf.aud.form.seq.no 5 FREE L eaF
mrf.aud.seq.no 5 PINT R eaED
mrf.aud.date.out 8 FREE L VAL=%Z.date.out(%Z.date.in.magic(@mrf.aud.time))
mrf.aud.doctor 10 FREE L MIS.DOC.DICT ?EAFA[ea,eaN,eaF,eaED]|1
mrf.aud.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@mrf.aud.doctor]
mrf.aud.icr.new 10 FREE L MRI.ICR.RSN ?EAFA[ea,eaN,eaF,eaED]|4
mrf.aud.icr.res 10 FREE L MRI.ICR.RSN ?EAFA[ea,eaN,eaF,eaED]|3
mrf.aud.name 30 FREE L VAL=@name
mrf.aud.status 30 FREE L ?EAFA[ea,eaN,eaF,eaED]|2
mrf.aud.time 20 FREE L ?EAFA[ea,eaN,eaF,eaED]|0
mrf.aud.time.out 4 FREE L VAL=$TIME(@mrf.aud.time)
mrf.aud.type 10 FREE L ?EAFA[ea,eaN,eaF,eaED]|5
mrf.aud.unit.number 10 FREE L VAL=@unit.number
mrf.aud.user 20 FREE L ?EAFA[ea,eaN,eaF,eaED]|6
mrf.audit.type.out 30 FREE L VAL=%MRI.PAT.form.audit.action(@mrf.account.number,@mr
VAL=f.form.seq.no,@mrf.aud.seq.no)
Ì i 2
medical.record.forms (mr.forms)
[mrf.mri.urn,mrf.account.number,mrf.form.seq.no]
?EAFM[ea,eaN,eaF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mrf.mri.urn 25 URN L MRI.PAT ea
mrf.account.number 20 FREE L eaN
mrf.form.seq.no 5 FREE L eaF
mrf.database 12 FREE L MIS.APPL ?EAFM[ea,eaN,eaF]|2
mrf.description 30 FREE L ?EAFM[ea,eaN,eaF]|3
mrf.form.icr.print 10 FREE L VAL=@MRI.ICR.RSN.form.status.x[@mrf.form.mnemonic,@mrf
VAL=.form.status]
mrf.form.mnemonic 15 FREE L MIS.MR.FORM ?EAFM[ea,eaN,eaF]|0
mrf.form.name 30 FREE L VAL=@MIS.MR.FORM.description[mrf.form.mnemonic]
mrf.form.urn 30 FREE L ?EAFM[ea,eaN,eaF]|1
mrf.old.form.urn 30 FREE L ?EAFM[ea,eaN,eaF]|5
mrf.temp.flag 1 YN L ?EAFM[ea,eaN,eaF]|4
Ì € i 2
medical.record.form.doctors (mr.form.doctors)
[mrf.mri.urn,mrf.account.number,mrf.form.seq.no, mrf.doctor]
?EAFM[ea,eaN,eaF]DR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mrf.doctor 10 FREE L MIS.DOC.DICT ggg
mrf.doctor.name 30 FREE L VAL=@MIS.DOC.DICT.name[@mrf.doctor]
mrf.form.icr 10 FREE L MRI.ICR.RSN ?EAFM[ea,eaN,eaF]DR[ggg]|1
mrf.form.status 30 FREE L ?EAFM[ea,eaN,eaF]DR[ggg]|0
Ì i 2
mri.pat.sealed.emr.visits (sealed.emr.visits)
[sealed.emr.urn,sealed.emr.adm]
?EAMRX[ea,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sealed.emr.urn 25 URN L MRI.PAT ea
sealed.emr.adm 30 URN L ADM.PAT aa
sealed.emr.status 8 CHOICE L ?EAMRX[ea,aa]|0
Ì € i 2
mri.pat.sealed.emr.users (sealed.emr.users)
[sealed.emr.urn,sealed.emr.adm, sealed.emr.user]
?EAMRX[ea,aa]U[gu]
Field Name Len Dat Typ J DPM Offset/Local/VAL
sealed.emr.user 10 FREE L MIS.USER gu
Ì i 2
mri.pt.swipe.cards (swipe.cards)
[swipe.card.urn]
?EASW[ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
swipe.card.urn 25 FREE L ea
Ì € i 2
mri.pt.swipe.cards.printed (swipe.cards.printed)
[swipe.card.urn, swp.num]
?EASW[ea]P[eaSWP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
swp.num 2 PINT R eaSWP
swp.date 8 DATE L ?EASW[ea]P[eaSWP]|1
swp.facility 10 FREE L MIS.FACILITY ?EASW[ea]P[eaSWP]|0
swp.time 4 TIME L ?EASW[ea]P[eaSWP]|2
swp.user 10 FREE L MIS.USER ?EASW[ea]P[eaSWP]|3
Ì i 2
mri.pat.xfer.queue (xfer.queue)
[xfer.seconds,xfer.type,xfer.urn]
?EAXQ[xsec,xch,aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.seconds 9 FREE L xsec
xfer.type 10 CHOICE L xch
xfer.urn 30 URN L ADM.PAT aa
xfer.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]
xfer.appl.urn 20 FREE L
xfer.confid.flag.changed 1 YN L ?EAXQ[xsec,xch,aa]|6
xfer.dre.abs.ignore 1 YN L ?EAXQ[xsec,xch,aa]|5
xfer.dre.acct 12 FREE L ?EAXQ[xsec,xch,aa]|3
xfer.dre.adm.urn 30 URN L ADM.PAT ?EAXQ[xsec,xch,aa]|4
xfer.dre.db 12 FREE L MIS.APPL ?EAXQ[xsec,xch,aa]|2
xfer.guar.adm.urn 30 URN L ADM.PAT ?EAXQ[xsec,xch,aa]|4
xfer.job 3 INT R
xfer.mri.user 10 FREE L MIS.USER ?EAXQ[xsec,xch,aa]|6
xfer.new.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]|0
xfer.new.mri.urn 25 URN L MRI.PAT ?EAXQ[xsec,xch,aa]|1
xfer.new.other.number 11 FREE L ?EAXQ[xsec,xch,aa]|4
xfer.new.soc.sec.number 8 FREE L ?EAXQ[xsec,xch,aa]|0
xfer.new.unit.number 10 FREE L ?EAXQ[xsec,xch,aa]|0
xfer.old.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]|1
xfer.old.mri.number 25 URN L MRI.PAT ?EAXQ[xsec,xch,aa]|3
xfer.old.other.number 11 FREE L ?EAXQ[xsec,xch,aa]|5
xfer.old.soc.sec.number 8 FREE L ?EAXQ[xsec,xch,aa]|1
xfer.old.unit.number 10 FREE L ?EAXQ[xsec,xch,aa]|2
xfer.switch.acct.number 12 FREE L ?EAXQ[xsec,xch,aa]|4
xfer.value 12 FREE L ?EAXQ[xsec,xch,aa]
Ì € i 2
mri.pat.xfer.queue.adm.urns (xfer.queue.adm.urns)
[xfer.seconds,xfer.type,xfer.urn, xfer.queue.adm.urn]
?EAXQ[xsec,xch,aa]U[aa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.queue.adm.urn 30 URN L ADM.PAT aa
Ì € i 2
mri.pat.xfer.queue.patients (xfer.queue.patients)
[xfer.seconds,xfer.type,xfer.urn, xfer.account.number]
?EAXQ[xsec,xch,aa]P[xacn]
Field Name Len Dat Typ J DPM Offset/Local/VAL
xfer.account.number 12 FREE L xacn
Ì i 2
uk.nhs.trace.file (zcus.uk.nhs.trace.top)
?EAZCUSTRACE
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.nhs.trace.date 8 DATE L ?EAZCUSTRACE|1
zcus.uk.nhs.trace.run.dt 8 DATE L ?EAZCUSTRACE|2
zcus.uk.nhs.trace.tape 10 FREE L ?EAZCUSTRACE|0
Ì i 2
zcus.uk.nhs.trace (zcus.uk.nhs.trace)
[zcus.uk.nhs.urn]
?EAZCUSTRACE["ZCUSTR",ea]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.nhs.urn 25 FREE L ea
zcus.uk.nhs.cmds 2 FREE L ?EAZCUSTRACE["ZCUSTR",ea]|1
zcus.uk.nhs.dob 8 DATE L ?EAZCUSTRACE["ZCUSTR",ea]|3
zcus.uk.nhs.dob.upd 8 DATE L ?EAZCUSTRACE["ZCUSTR",ea]|4
zcus.uk.nhs.new.num 10 FREE L ?EAZCUSTRACE["ZCUSTR",ea]|2
zcus.uk.nhs.post 3 FREE L ?EAZCUSTRACE["ZCUSTR",ea]|5
zcus.uk.nhs.post.date 8 DATE L ?EAZCUSTRACE["ZCUSTR",ea]|7
zcus.uk.nhs.post.date.upd 8 DATE L ?EAZCUSTRACE["ZCUSTR",ea]|8
zcus.uk.nhs.post.upd 8 FREE L ?EAZCUSTRACE["ZCUSTR",ea]|6
zcus.uk.nhs.ts 2 FREE L ?EAZCUSTRACE["ZCUSTR",ea]|0
Ì i 2
uk.nhs.number.trace.err (zcus.uk.nhs.trace.err)
[zcus.uk.err.urn]
?EAZCUSTRACE["ZCUSTE",eaerr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.err.urn 25 FREE L eaerr
zcus.uk.err.cmds 2 FREE L ?EAZCUSTRACE["ZCUSTE",eaerr]|1
zcus.uk.err.dob 8 DATE L ?EAZCUSTRACE["ZCUSTE",eaerr]|3
zcus.uk.err.dob.upd 8 DATE L ?EAZCUSTRACE["ZCUSTE",eaerr]|4
zcus.uk.err.new.num 10 FREE L ?EAZCUSTRACE["ZCUSTE",eaerr]|2
zcus.uk.err.post 3 FREE L ?EAZCUSTRACE["ZCUSTE",eaerr]|5
zcus.uk.err.post.date 8 DATE L ?EAZCUSTRACE["ZCUSTE",eaerr]|7
zcus.uk.err.post.date.upd 8 DATE L ?EAZCUSTRACE["ZCUSTE",eaerr]|8
zcus.uk.err.post.upd 8 DATE L ?EAZCUSTRACE["ZCUSTE",eaerr]|6
zcus.uk.err.ts 2 FREE L ?EAZCUSTRACE["ZCUSTE",eaerr]|0
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mri.pat.actual.name.index [last.name.indexed,first.name.indexed,urn]
actual.name.index :EAAN[eaNML,eaNMF,ea]
mri.pat.assignment.date.index [ass.date,urn]
assignment.date.index :EAI[eaD,ea]
mri.pat.cnv.unit.num.index [facility,cnv.unit.number] = urn
cnv.unit.num.index :EACU[gqb,un]
mri.pat.cnv.urn.index [facility,cnv.urn] = urn
cnv.urn.index :EACMX[gqb,eaCU]
mri.pat.birthdate.index [computed.birthdate,urn]
dob.index :EAB[eaCBD,ea]
mri.pat.edit.activity.index [seconds,queue.number] = urn
edit.activity.index :EAX[easc,eaqn]
mri.pat.epi.num.index [epi.num] = urn
epi.num.index :EAEPI[eaEPI]
mri.pat.expired.date.index [exp.date,urn]
expired.date.index :EAEXP[eaEXD,ea]
mri.patient.health.care.index [healthcare.number,urn]
healthcare.index :EAS[eaSSN,ea]
medical.record.form.x [mrf.mri.urn,mrf.account.number,mrf.form.mnemonic,mrf.database,mrf.form.urn] = m
mr.form.x ?EAFMX[ea,eaN,gi,iaD,eaFM]
mri.pat.soundexed.name.index [last.name,first.name,sex,computed.birthdate,urn]
name.index :EAN[x1,x2,eaSX,eaCBD,ea]
mri.pat.phone.num.x [pat.home.phone,urn]
phone.num.x :EAPH[eaPH,ea]
mri.patient.policy.num.index [policy.number,urn]
policy.num.index :EAP[eaPLN,ea]
mri.patient.soc.sec.index [soc.sec.number,urn]
soc.sec.index :EAS[eaSSN,ea]
mri.pat.unit.number.index [unit.number] = urn
unit.num.index :EAU[eaN]
mri.pat.visit.locn.x [urn,visit.facility,visit.location,visit.date.time]
visit.locn.x ?EAL[ea,gqb,ggn,eaVDT]
mri.pat.exact.name.index [last.name,first.name,sex,computed.birthdate,urn]
zcus.name.exact.index :EAZCUSEN[x1,x2,eaSX,eaCBD,ea]
zcus.uk.nhs.cmds.x [zcus.uk.cmds,urn]
zcus.uk.nhs.cmds.x ?EAZCUSNHSI[nhscm,ea]
uk.nhs.number.trace.index [zcus.uk.ts,zcus.uk.cmds,zcus.uk.date,unit.number,urn]
zcus.uk.nhs.trace.x ?EAZCUSNHS[nhsts,nhscm,nhsdt,eaN,ea]
rta.date.index [zcus.uk.rta.date,urn,zcus.uk.rta.accident.no,ADM.PAT.urn] = ADM.PAT.acct.number
zcus.uk.rta.date.x ?EAZCUSRTADX[eartD,ea,eartN,aa]
rta.patient.index [urn,zcus.uk.rta.date,zcus.uk.rta.accident.no,ADM.PAT.urn] = ADM.PAT.acct.number
zcus.uk.rta.x ?EAZCUSRTAX[ea,eartD,eartN,aa]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |